home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / batch / MiniMen.lha / MiniMen / TransADFX < prev    next >
Encoding:
Text File  |  2000-02-25  |  682 b   |  28 lines
  1. echo c
  2. Requestfile >env:FADF TITLE="Choose ADF file to extract" PATTERN "(#?.ADF|#?.ADZ)" DRAWER "RAM:"
  3. if warn
  4.    echo "*N Operation canceled....!"
  5.    quit
  6. endif
  7. if not exists $FADF
  8.    echo "*N File does not exist....!"
  9.    delete >nil: env:FADF
  10.    quit
  11. endif
  12. MiniMen drives
  13. if exists env:minmen
  14.    assign >nil: exists $MinMen:
  15.    if warn
  16.       if exists sys:storage/dosdrivers/$MinMen
  17.          mount >nil: sys:storage/dosdrivers/$MinMen
  18.       else
  19.          echo "*N Device driver not found....!"
  20.          quit
  21.       endif
  22.    endif
  23.    TransADF DRIVE $MinMen: FILE $FADF WRITE NAME #? VERIFY FORMAT
  24.    delete >nil: env:MinMen env:FADF
  25. else
  26.    echo "*N Operation canceled...!"
  27. endif
  28.